# print ('my first R scrips')
#load the file raw_stats ignoring the header data
perf_data <- read.table ('./eaa-project/raw_stats.dat',TRUE)
plot(perf_data[,'X.idle'])
plot(perf_data[,'X.idle'], type = 'b', xlab = 'Time in seconds', ylab = '% time idle')
plot(100 - perf_data[,'X.idle'], type = 'b', xlab = 'Time in seconds', ylab = '% Utilization (U_I)')
u_i <- mean(100 - perf_data[,'X.idle'])
d_i <- u_i / 94

